home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / workbench / libs / xfalib.lha / XFA_Library / Blitz / AnimToXFA.ascii next >
Text File  |  1995-05-15  |  1KB  |  78 lines
  1.  
  2. ;********************************************************************
  3. ;
  4. ; (c) Mik of ClassX 1995
  5. ;
  6. ;
  7. ; Simple Anim5 -> XFA converter
  8. ;
  9. ;********************************************************************
  10.  
  11.  
  12. XINCLUDE "LIB_XFA.BB"
  13.  
  14. WBStartup
  15. NoCli
  16. DEFTYPE.l
  17.  
  18.  
  19. ;/* anim file to convert */
  20.  
  21. f$ = "dk3:anim/a.anim"
  22.  
  23. If ILBMInfo(f$)
  24.  
  25.   sx = ((ILBMWidth+63) LSR 6) LSL 6
  26.   sy = ILBMHeight
  27.   d = ILBMDepth
  28.  
  29.   LoadAnim 0,f$,0
  30.  
  31.   Screen 0,0,0,sx,sy,d,$8004,"",2,1:Use Palette 0
  32.   Screen 1,0,0,sx,sy,d,$8004,"",2,1:Use Palette 0
  33.  
  34.   ScreensBitMap 0,0
  35.   ScreensBitMap 1,1
  36.  
  37.   animframes = Frames(0)
  38.   *scr = Peek.l(Addr Screen (1))
  39.  
  40.   If XFA_AllocFrames_(animframes+10)
  41.     XFA_SetPack_ *scr,#XFA_MODE32I
  42.     If XFA_OpenPackStuff_
  43.  
  44.       i = 0
  45.       db = 0
  46.       c = 0
  47.       XFA_PosOnFrame_ 0
  48.       InitAnim 0,db
  49.  
  50.       Repeat
  51.         i+1
  52.  
  53.         XFA_ChangePackBitMap_ Addr BitMap (db)
  54.         XFA_PutSeqFrame_ c
  55.         c+1
  56.  
  57.         db=1-db
  58.         Use BitMap db
  59.         NextFrame 0
  60.  
  61.       Until (i > (animframes-1))
  62.  
  63.  
  64.       XFA_ClosePackStuff_ #CLOSE_LOOP
  65.  
  66.       XFA_SaveAnim_ "t:a.xfa"
  67.     EndIf
  68.  
  69.     XFA_FreeFrames_
  70.   EndIf
  71.  
  72. EndIf
  73.  
  74. End
  75.  
  76.  
  77.  
  78.